
 1000  *--------------------------------------
 1010  SCM.INSTALL .EQ SCM.BASE+$52A
 1020  *
 1030  MY.ESC.L 
 1040         CPX #0          CURSOR AT BEGINNING?
 1050         BEQ .1          YES, CONTINUE
 1060         JMP SCM.ESC.L   NO, LET S-C HANDLE IT
 1070  .1     LDA #0          CONNECT DOS
 1080         STA $AA52       BY SETTING INTERCEPT STATE = 0
 1090         LDA #$84        SEND A CTRL-D
 1100         JSR MON.COUT
 1110  .2     LDA LOADCMD,X
 1120         JSR SCM.INSTALL
 1130         JSR FAKE.COUT
 1140         CPX #6
 1150         BCC .2
 1160  .3     STX $406        SAVE CHAR POS'N
 1170         JSR GETCH       GET SCREEN CHAR
 1180         LDX $406        RESTORE POS'N
 1190         JSR SCM.INSTALL
 1200         JSR FAKE.COUT
 1210         CPX #40         40 CHARS SENT YET?
 1220         BNE .3          NO, LOOP BACK
 1230         JMP CLREOP      CLEAR TO END OF PAGE
 1240  *                      AND EXIT
 1250  *
 1260  LOADCMD    .AS -/LOAD  /
 1270  *--------------------------------------

